﻿Public Class frmDanhSachLop

    Private Sub frmDanhSachLop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lopBUS As New LopBUS()
        Dim ds As List(Of LopDTO)
        ds = lopBUS.SelectAll()

        dgvDSLop.Rows.Clear()
        For Each l As LopDTO In ds
            dgvDSLop.Rows.Add(l.MALOP, l.TENLOP, l.SISO, l.KHOI, l.NAM)
        Next
        'dgvDSLop.DataSource = LopBUS.SelectAll()
    End Sub
End Class